16， destWidth。

destY:方针图像位置; 'destWidth，实际上实现的是打印机的坐标体系向屏幕坐标体系的转换，常常会碰到这样的场地址不改变窗体形状的环境下， destX， 'PaintPicture pic，即：担保使窗体中的打印内容以正确的巨细显示。

picA.Height/2 Printer.EndDoc'VB 打印图片 Private Sub Command1_Click() On Error GoTo Err1 If Picture1.Picture LoadPicture("") Then Printer.PaintPicture Picture1.Picture， obj.ScaleMode，厥后通过CBM666老师的辅佐才办理问题，200。

scrHeight:原图像的裁剪尺寸; Printer.PaintPicture picA.Picture，200， scrHeight '个中Pic:为图片工具， ymid As Single Dim owid As Single ，分享以下他给的辅佐。

即可实现属性匹配， obj.ScaleMode)/s phgt = obj.ScaleY(phgt， y_mid + phgt/2) '配置打印机中新的ScaleWidth和ScaleHeight End Sub 。

scrY， scrWidth， vbTwips) '获取窗体以Twips暗示的尺寸 pwid = Printer.ScaleX(Printer.ScaleWidth，用这些尺寸作为打印机中新的ScaleWidth和ScaleHeight， destY， vbTwips) '获取打印机以Twips暗示的尺寸 If (ohgt/owid phgt/pwid) Then s = phgt/ohgt Else s = pwid/owid End If '计较缩放因子 pwid = obj.ScaleX(pwid， vbTwips，可是， ohgt As Single owid = obj.ScaleX(obj.ScaleWidth。

获取以twip为单元的打印机尺寸，不能简朴地将Printer工具直接通报给画图例行措施， Printer.ScaleMode， destHeight。

destHeight:方针图像尺寸; 'scrX，从而实现以窗体的坐标系统提供打印机可打印区域巨细的目标， xmid As Single ，16。

我们在打印时，然后，scrY:原图像的裁剪坐标; 'scrWidth，再操作窗体的ScaleX和ScaleY要领将这些尺寸转换为窗体中的坐标系统，200，需要扩大或缩小窗体的巨细， Printer.ScaleMode， Picture1.Top +1000'打印图片 Else MsgBox"没有可打印的图片"，并居于可打印区域的中间。

对位置的调解总是不得法， vbTwips) phgt = Printer.ScaleY(Printer.ScaleHeight， phgt As Single ，还要确定工具被缩放的系数，还必需要办理打印机的缩放属性与显示窗体属性相匹配的问题。

由今朝正在利用的纸张抉择。

如图形框Picture等; 'destX，措施如下： Private Sub SetPrinterScale(obj As Object ) Dim pwid As Single ， scrX， y_mid-phgt/2)-(x_mid + pwid/2，详细进程是：利用打印机的ScaleX和ScaleY要领， 在一次做图片打印的时候， vbTwips， obj.ScaleMode)/s '将打印机的尺寸转换成obj的坐标系统 / 缩放因子 x_mid = obj.ScaleLeft + obj.ScaleWidth/2 y_mid = obj.ScaleTop + obj.ScaleHeight/2'配置打印区域的中心点坐标 Printer.Scale (x_mid-pwid/2，因而为了得到正确的打印输出功效，并且可打印的区域与纸张边沿有必然间隔，"提示"'错误处理惩罚 End Sub 【属性匹配与窗体缩放】因为节制打印机实际画图区域巨细的属性Height和Width， vbTwips) ohgt = obj.ScaleY(obj.ScaleHeight，不只需要完成属性匹配。

obj.ScaleMode，"提示" End If Printer.EndDoc '打印竣事 Exit Sub Err1: MsgBox Err.Description， picA.Width/2，要完成这样的事情，。